a = 6 (slider from 1 to 10, step 1)
A = (0, 0, 0)
B: (a, 0, 0)
C: (a, a, 0)
D: (0, a, 0)
W, E_1, F_1, G, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, edgeAE, edgeBF, edgeCG, edgeDH, edgeEF_1, edgeFG, edgeGH, edgeEH = Prism(Polygon[A, B, C, D], a)
poly1, a_1, b, c, d = Polygon(A, B, C, D)
list1 = Sequence(Text[n, (n, 0)], n, 1, a + 1)
list2 = Sequence(Text[n, (0, n)], n, 1, a + 1)
list3 = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, a + 1)
list4 = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, a + 1)
list5 = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, a + 1)
poly2, e, f, g = Polygon(B, D, E_1)
u = Vector((0, 0, 0), (a + 2, 0, 0))
w = Vector((0, 0, 0), (0, 0, a + 2))
v = Vector((0, 0, 0), (0, a + 2, 0))
h, faceBDG, faceDE_1G, faceBE_1G, edgeBG, edgeDG, edgeE_1G = Pyramid(poly2, G)